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# ! /usr/bin/perl 
use DBI; 

$myurl = 'http://MoneyOrdersOnline.eom/a'; 
&main; 



sub main{ 

$dbh = DBI->connec t ( ' DBI : mysql : moneyorder son line : localhos t ' 
{RaiseError => 0, PrintError => 0}); 
unless ($dbh) { 



print_f ile_hinted ( ' techdif f . html ' 
database ' } ) ; 

return; } 

&go; 

$dbh->disconnect ; } 



{error => 'cannot access 



sub go{ 

my ( $query) ; 

$query = parse_ query () ; 
□ if ( $query-> {action} eq 
tfj if ( $query-> {action} eq 
Si if ($query->{action} eq 
=P if ($query-> {action} eq 
f* if { $query-> { trans_approved} ) 
f* if ( $query->{secret} ) 
return; } 



lookup_ebay' } { lookup_ebay ( $query ) ; return; } 
have_info') {have_inf o ( $query ) ; return;} 

choice') {choice ($query) ; return;} 

download' ) {download ($query) ; return; } 

{from_mol ($query) ; return; } 
{from_email ($ query) ; 



$query->{ error} 



"<BR>unknown action [ $query-> { action} ] \n " 



print_f ile_hinted ( ' techdif f .html ' , $query) ; } 



subJ:lookup_ebay { 

m my($query) = @_; 

□ # Here is were we look up the ebay item. . . 
y @$query {qw ( error description buyer price seller)} = 
retrieve_ebay_inf o ( $query-> { itemno} ) ; 

#@$query {qw ( error description buyer price seller)} = (' 'A nice pretty 
widget', 'tim@nerds.com', '33.22' , 'brianvon@fpga.com'); 

# If the buyer or seller looks like an email address, it probably is... 
@$query {b_email , b_email2} = @$query {buyer , buyer} if $query-> {buyer } =~ 
/~[0-9\-\. \_a-z] +@[0-9\-\ . \_a-z]+$/; 

@$query { s_email , s_email2} = @$query { seller , seller} if $query-> { seller } 
=~ / A [0-9\-\.\_a-z]+@[0-9\-\. \_a-z]+$/; 

print_f ile_hinted ( 'moreinfo.html' , $query) ; } 



sub have_info{ 

my($query) = @_; 
my ( $sth, $n) ; 

# Validate the information 
my ( $ error ) ; 

for (qw (price shipping 

b_fname b_lname b_address b_city b_state b_zipcode 
s_fname s_lname s_address s_city s_state s_zipcode) ) 
{ $error . - "<LI>Specify the $_" unless $query->{$_ 

$error =~ s/\bb_/buyer /g; 
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$error =~ s/mname /middle name/g; 
$error =~ s/lname/last name/g; 

if ($ query- >{b_email} && $query-> {b_email } ne $query->{b_email2 } ) 

{ $error .= "<LI>The buyer's email addresses must match"; } 

if ( $query->{s_email} && $query-> { s_email } ne $query-> { s_email2 } ) 

{ $error .= "<LI>The seller's email addresses must match"; } 

if ($error) { 

$query->{ error} = "Correct the following errors : <UL>$error< /UL> " ; 
print_f ile_hinted ( 'moreinfo.html' , $query) ; 
return; } 

# Calculate fee. . . 

$query-> {amount} = $query-> {price} + $ query- >{ shipping} ; 
$query->{fee} = sprint f ( " %0 . 2 f " , { $query-> { amount } * .04) - 0.01); 
$query->{ f ee} = sprintf ( " %0 . 2f " , ( $query-> { f ee} < 1.00) ? 0.99 : $query- 
>{fee}); 

$query-> { total} = $query-> {amount } + $query-> { f ee} ; 
tt Create a new check number 
my ($checkno) ; 

# Pick a random transaction number and make sure it isn't used... 
~2 do{ $checkno = int (rand ( 8999999 ) ) + 1000000; 

j:' $n = $dbh->do (' select NULL from transaction where transnumber = ?', 

y, undef, $checkno) ; } 

U while ($n >= 1) ; 

yj $query-> (checkno } = $checkno; 

01 $sth - $dbh->prepare ( "replace into transaction set" . 

" modified = UNIX_TIMESTAMP ( ) , transnumber = ?," . 

M= " b_email = ?, b_fname = ?, b_mname = ?, b_lname = ?, 

tilkddress = ?, b_city = ?, b_state = ?, b_zipcode = ?," . 

^ " s„email = ?, s_fname = ?, s_mname = ?, s_lname = ?, 

s^fjaddress = ?, s_city = ?, s_state = ?, s_zipcode = ?," . 

? SI " description = ?, itemno = ?, notify = ?, price = 100 * 

7T 1 shipping = 100 * ?, fee = 100 * ?," . 

" b_secret = ?, s_secret = ?"); 
$n = $sth->execute (@$query{qw (checkno 

b_email b_fname b_mname b_lname b_address b_city b_state 

b_zipcode 

s_email s_fname s_mname s_lname s_address s_city s_state 

s_zipcode 

description itemno notify price shipping fee b_secret 

s_secret ) } ) ; 

if ($n != 1) { 

$query-> {error} .= "<BR>in have_info: select transaction n=[$n]\n"; 
print_f ile__hinted ( 'techdiff.html* , $query) ; 
return; } 

$query->{ image} = "http: / /moneyordersonline . com/check/check . cgi / .gif " 

. "?checkno=" . URL :: encode { $query-> { checkno} ) 
. "&itemno-" . URL :: encode ( $query-> { itemno} ) 
. "&payee=" . URL :: encode (" @$query { s_f name , 

s_lname } " ) 

. "&amount=" . URL :: encode ($query->{ amount} ) ; 
print_f ile_hinted ( 'howpay.html' , $query) ; } 
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my $checkno = $query->{ ' checkno ' } J | $query->{ 'user2 ' } ; 
my $itemno = $query-> { 1 itemno ' } || $query-> { 1 user3 ' } ; 
unless ($checkno) { 

$query-> { error } .= "<BR>check number is missing\n" ; 

print_f ile_hinted ( 'techdiff.html' , $query) ; 

return; } 

if ($query->{ trans_approved} ne 'APPROVED') { 

$query->{ error} .= " <BR>transaction was not approved\n" ; 
print_f ile_hinted ( ' techdiff.html' , $query) ; 
return; } 

my ( $sth, $n) ; 

$sth = $dbh->prepare (" select " . 

b_email, b_fname, b_mname, b_lname, b_address, b_city, b_state, 



b__zipcode, 
s_zipcode. 



s_email, s_fname, s_mname, s_lname, s_address J s_city, s_state, 



description, itemno, notify, price/100, shipping/100, fee/100," 
b_secret, s_secret" . 

from transaction where transnumber = ?"); 
r"| unless ($sth) { 

jr; $query->{ error} .= "<BR>in f rom_mol : prepare select transaction 

failed: @{ [DBI->errstr ] } \n" ; 
M= print_f ile_hinted ( ' techdif f . html ' , $query) ; 

return; } 
31 $n = $sth->execute ( $checkno) ; 
if ($n != 1) 

{ $query->{ error} . = "<BR>select transaction n=[$n]\n"; 
J print_f ile_hinted{ ' techdif f. html ' , $query) ; 

ft return; } 

'tl my ( $data) ; 

@$data{qw( b_email b_fname b_nvname b_lname b_address b_city b_stat 

bZzipcode 

s_zipcode 



s_email s_fname s_mname s_lname s_address s_city s_stat 



description itemno notify price shipping fee 
b_secret s_secret 
) } = $sth->f etchrow_array ; 
$sth->f inish; 

if ($data->{itemno} != $itemno) 

{ $query->{ error} .= "<BR>wrong itemno\n"; 

print_f ile_hinted ( 'techdiff.html' , $query) ; 

return; } 

$data-> {amount} = $data->{price} + $data-> { shipping} ; 
$data->{ total} = $data-> {amount } + $data-> { f ee} ; 
if ($data->{ total} != $query-> { trans_amount } ) 

{ $query-> { error } . = "<BR>in from_mol: transaction amount is wrong 

($data->{total} vs. $query-> { trans_amount } \n" ; 

print_f ile_hinted ( 'techdiff.html' , $query) ; 

return ; } 
$data-> {b_email } = $ query- > {email} ; 
$data-> {b_fname} - $query-> { f irstname} ; 
$data-> {b_lname} = $query-> { las tname} ; 
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$data->{b_city} = $query-> { city} ; 

$data~> {b_state} = $query-> { state} ; 

$data-> {b_zipcode} = $query-> { zip} ; 

$data->{status} = ' PAID CC ' ; 

$data-> {cc_type} = $query-> {cardtype} ; 

$data~> {cc_number } = $query-> {card_number } ; 

$data~> {cc_exp} = " $query->{exp_mon} / $query- > { exp_year } " ; 

$data->{b_secret} = int (rand ( 89999 ) + 10000); 

$data->{s_secret} = int (rand ( 89999 ) + 10000); 

$data-> {checkno} = $checkno; 

if (0) 

{ &print_header ; 

print "<P>in f rom_mol : data:\n"; 
for (sort keys %$data) 

{ print "<BR>   $_ -> $data-> { $_} \n" ; } 
$sth = $dbh->prepare { "update transaction set" . 

" modified = UN I X_T I ME STAMP ( ) , " . 

" b_email = ?, b_fname = ?, b_mname = ?, b_lname = ?, 
b_state = ?, b_zipcode = ?," . 
, cc_type = ?, cc_number = ?, cc_exp = ?," 
?, s_secret = ? where transnumber = ?"); 



b_^gddress = 



b_city = ? 
" status = 
" b_secret 
unless ($sth) 
{ $query-> {error} 



failed: @{ [DBI->errstr] }\n" ; 

01 print_f ile_hinted ( 'techdiff.html 

s return; } 

M; $n = $sth->execute (@$data{qw( 
bHaddress b_city b_state b_zipcode 



<BR>in f rom__mol : prepare update transaction 
$query) ; 



b_email b_fname b_mname b_lname 



status cc_type cc_number 



b_secret s_secret checkno 



if ($n != 1) 
{ 



) }) ; 



$query-> {error} 

print_f ile_hinted ( 1 techdif f . html 
return; } 
my ( $m, $n) ; 

if ($data->{notify} eq 'yes') { 
$m = << ' EOF ■ ; 

From: MoneyOrdersOnline.com <Fulf illment@MoneyOrdersOnline . com> 
To: {b_email} 

Subject: Money Order for eBay Item #{itemno} 



<BR>in f rom_mol : execute failed n=[$n]\n" 
$ query) ; 



To Money Orders 0nline.com Customer: 



Your purchase of a money order in the amount of $ {amount} is complete. 
The money order has been delivered to the seller {seller} . Including 
the processing fee of ${fee}, a total amount of ${ total} has been 
charged to your {cc_type} credit card {cc_number} . 

If for some reason you wish to cancel this money order, and the seller 
has not yet retrieved the money order, you can go to 
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to cancel . 

Thank you for using MoneyOrdersOnline.com! 
EOF 

$n = « ' EOF ' ; 

From: MoneyOrdersOnline.com <Fulf illment@MoneyOrdersOnline . com> 
To: {s_email} 

Subject: Money Order for eBay Item #{itemno} 

We have been authorized to send you a money order on behalf of eBay 
user {buyer} for eBay item number #{itemno}. The amount of the money 
order is ${amount}. You can go to the following website and print the 
money order instantly on your own PC-compatible printer on plain paper 
and cash it just the same way as any other money order. 

{ {myurl} } /process . cgi?itemno= {itemno}&checkno= {checkno}&secret= {s_secret} 

if! you do not have a PC-compatible printer, go to the same site and request 
the money order be sent to you via first-class mail. 

b£ the way, you can become a Money Orders Online PREFFERRED SELLER and get 
fgee money order stock and address labels just for letting people know that 
ymi accept money orders online as payment for your auctioned items. Go to 
http : //MoneyOrdersOnline . com/pref erred/intro .html 

fpur more information. Being a preferred seller makes shipping your items a 
sUfep, with automatically printed address labels, official money order 
sfebck, and even preprinted postage with adhesive backing! Streamline your 
lypgistics and shipping operations by joining today! 
EgF 

i=i } else { 

$m = « ' EOF ' ; 

From: MoneyOrdersOnline.com <Fulf illment@MoneyOrdersOnline . com> 
To: {b_email} 

Subject: Money Order for eBay Item #{itemno} 
To Money Orders Online.com Customer: 

Your purchase of a money order in the amount of $ {amount} is complete. 
Including the processing fee of ${fee}, a total amount of ${ total} has 
been charged to your {cc_type} credit card {cc_number} . 

You have requested local delivery of your money order. Please go to 
the following URL to retrieve and print your money order. Please note 
that the money order can be printed only on PC-compatible computers. 

{ {myurl } } /process . cgi?itemno= { i temno} &checkno- { checkno } &secret= {b_secret} 

Thank you for using MoneyOrdersOnline.com! 
EOF 

} 
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sub from_email{ 

my ($ query) = @_; 

my $data = lookup ( [qw ( status b_fname b_lname b_secret s_fname s_lname 
s_secret itemno price shipping fee)], $query, 'download'); 
return unless $data; 

@$data{checkno, itemno} = @$query{checkno, itemno}; 
if ' ($data->{status) =~ / ~ PRINTED \b / ) 

{ $query->{ error} .= "<BR>Money order was already $query { status } \n" ; 

print_f ile_hinted ( 'techdiff.html' , $query) ; 

return; } 
my $who = $data-> {who } ; 
unless ($who) 

{ $query-> {error} .= "<BR>in from_email: Logic error: no who\n" ; 
print_f ile_hinted( 'techdiff.html' , $query) ; 
return; } 

$fn = 'click-buyer.html' if $who eq 'buyer'; 

$fn = 'click-seller.html' if $who eq 'seller'; 
~' = $data-> { image} = "http://moneyordersonline.eom/check/check.cgi/.gif" 
_i~ . "?checkno=" . URL :: encode ( $data-> {checkno } ) 

y, . "&itemno=" . URL :: encode ( $data-> { itemno } ) 

„ . "&payee=" . URL : : encode (" @$data{ s_f name, 

s^lname} " ) 

r= . "&amount=" . URL: : encode ($data->{ amount} ) ; 

print_f ile_hinted ($fn, $data) ; } 

sub choice { 
J!! my($query) = @_; 

~il my $data = lookup ( [qw ( status s_fname s_lname price shipping fee b_secret 
s^ecret) ] , $query, 'choice'); 
return unless $data; 

@$data{disp, secret} = @$query {disp, secret); 
if (0) 

{ &print_header ; 

print "status=$data->{status} secret=$data-> {secret } \n" ; 
return; } 

if ($data->{status) =~ /^PRINTED\b/ ) 
{ $query->{ error} .= " <BR>Money order was already $query{ status} \n" ; 
print_f ile_hinted ( ' techdif f .html ' , $query) ; 
return; } 

if ($data->{who} eq 'buyer' && $data->{disp} eq 'p-b-mail' 

|j $data->{who} eq 'seller' && $data-> {disp} eq 'p-s-mail') 
{ print "Content- type : text /html \n\ncheck will be mailed to $data- 
>{who} \n" ; 

return; } 

if ($data->{who} eq 'seller' && $data->{disp} eq 'p-s-decline ' ) 
{ print "Content- type : text /html \n\nBuyer will be notified that you 
declined" ; 

return; } 

print._f ile_hinted (' download . html ' , $data) ;} 
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my $data = lookup ([ qw (b_f name b_lname b_secret s_fname s_lname s_secret 
itemno price shipping fee)], $query, 'download') ; 
return unless $data; 
my $who = $data-> {who} ; 

unless ($who) _ 

{ $query->{ error} .= "<BR>in download: Logic error: no who 
secret=$query-> { secret} \n" ; 

print_file_hinted( ' techdiff.html ' , $query) ; 
return; } 

if ($who eq 'buyer' && $query-> { disp} eq 'p-b-maxl' 

|| $who eq 'seller' && $query-> {disp} eq 'p-s-print' ) 
{ $payee = " @$data{qw ( s_fname s_lname) } " ; } 
elsif ($who eq 'buyer' && $query-> {disp} eq ' p-b-deposit ' ) 
{ $payee = " @$data{qw (b_fname b_lname) } " ; } 

else {$query->{ error} .= "<BR>in download: who=$who disp=$query-> {dxsp} 
payee=$payee\n" ; 

print_file_hintedCtechdiff.html' , $query) ; 

^ return; } 

5 my $memo = "eBay item #$data-> { itemno} " ; 
* my $echeck = load_f ile ( ' echeck .nif ' ) ; 

^ my $download = $echeck . join(';', today () , $payee, $data-> { amount } , 
$n£|mo, $data->{checkno} , ' ', $secret) ; 

U print "Content-type: application/x-nicotine\nContent-length: 
@ Cj length <$download) ] } \n\n" , $download; } 

sub lookup { 
M> my($fields, $query, $where) = @_; 
W my($f); 
H= for (@$fields) 
VI { $f .= 1 , ' if $f ; 
9 $f .= "$_" ; 

U $f .= '/100' if (price | shipping | fee) $/; } 

if (0) 

{ Scprint__header ; 

print "<BR>fields=@$fields\n" ; 

print "<BR>select $f from transaction where transnumber = ? and 
itemno = ?\n" ; 

return; } 

my $sth = $dbh->prepare( "select $f from transaction where transnumber - 
? and itemno = ?"); 
unless ($sth) 

{ $query->{error} .= "<BR>in $where : prepare select transaction 
failed: @ { [DBI->errstr ] } \n" ; 

print_f ile_hinted( 'techdiff.html' , $query) ; 
return; } 

my $n = $sth->execute (@$query{checkno, itemno}); 

if ($n != 1) r „ , 

{ $query->{ error} .= "<BR>in $where : select transaction n=l$nj 

[@$query{checkno, itemno} ] \n" ; 

print_f ile_hinted( 'techdiff.html' , $query) ; 
return; } 
my ($data) ; 
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@$data{checkno, itemno} = @$query {checkno, itemno}; 

$data-> {amount} = sprint f ("%. 2 f , $data-> {price } + $data-> { shipping} ) if 
exists $data->{price} && exists $data-> { shipping} ; 

$data->{total} = sprintf ( " % . 2 f " , $data-> {amount } + $data-> { f ee) ) if 
exists $data->{ amount} && exists $data-> { f ee} ; 

$data->{who} = 'buyer' if $query->{ ' secret ' } eq $data-> { ' b_secret ' } ; 

$data->{who} = 'seller' if $query-> {' secret ' } eq $data-> { ' s_secret ' } ; 

$data; } 

sub isOK{ 

return $_[0] = ~ . 
/ A timkay\@| A brianvon\@ | \@moneyordersonline . com$ | \ ©nerds . com? / i ; } 

sub sendmail{ 

my($message) = @_; 

my($to) = $message =~ / A To : \s+ ( . * ? ) \n/im; 
local (*S) ; 

unless (isOK($to) && open(S, " | /usr/lib/sendmail -t" )) 
Q { print "<BR>E-mail to $to failed\n" ; 
[=0 return 1 ; } 

print S $message; 
J" close (S) ; 

l2 &print_header; print " <BR>Mail sent to $to\n" ; } 

suS retrieve_ebay_inf o { 
= 7 my($item) = @_; 

i& my($html, $error, Odescription, $buyer, $left ( $price, $quantity) ; 
lj $item =~ tr/0-9//cd; 

H return ("Enter a vaild item number.') unless $item =~ ( \d{ 8, 10} ) $/ ; 

Ul print "<BR>get $item. . . http : / /cgi . ebay . com/aw- 
cdg/eBaylSAPI . dll ?Mf cISAPICommand=ViewItem&item= " . URL :: encode ( $i tern) . 
"M" ; 

$html = URL: : get ( 'http: //cgi . ebay.com/aw- 
cgi/eBaylSAPI . dll?Mf cISAPICommand=ViewItem&item= ' . URL: : encode ( $i tern) ) ; 
#pr int " <BR>HTML : [ [ [ $html ] ] ] \n - ; 

($description) = $html =~ /bgcolor= " #99CCCC " > . * ?<b> ( . * ? ) <\ /b>/ is ; 

$error = "Item #$item not found." unless $error j| $description ; 

($left) = $html =~ /<f ont . *?>Time 
lef t<\/fontx\/td>. *?<bxfont . *?> ( . *?) <\/f ontx\/b>/is ; 

$error = 'The auction has not ended.' unless $error || $left =~ /auction 
has ended /is, • 

($quantity) = $html =~ 
/<f ont . *?>Quantity<\/fontx\/td>. *?<b> ( . *?) <\/b>/is ; 

if ($quantity > 1) 

{ ($price) = $html =~ 
/<font . *?>Lowest<\/font><\/td>. *?<b>{ . * ? ) <\ /b>/ is ; 

if ($price) { $price =~ s/ A \$//; ) 

else 

{ $error = 'Item did not sell' unless $error; 
($price) = $html =~ /<f ont . * ?>Starts 
at<\/fontx\/td>. *?<b> ( . *?) <\/b>/is; } 
unless ($error) 
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($seller) = $html = ~ 
/<font. *?>Seller<\/f ontx\/td> . *?<bxa. *?>(.*?) <\ /a><\ /b>/is ; 
} else { 

($price) = $html =~ 
/<font . *?>Currently<\/f ontx\/td> . *?<b> ( . *?) <\/b>/is; 
if ($price) 

{ $price =~ s/ A \$// ; 

} else 

{ $error = 'Item did not sell' unless $error; 

($price) = $html =~ /<f ont . * ?>Starts 
at<\/fontx\/td> . *?<b> { . *?) <\/b>/is; } 
unless ($error) 

{ ($buyer) = $html =~ /<f ont . * ?>High 

Bid<\/fontx\/td> . *?<bxa. *?> ( . *? ) <\/ax\/b>/is; 

($seller) = $html =~ /<f ont . *?>Seller 
\ (Rating\) <\/fontx\/td> . *?<bxa. *?> ( . *?) <\/ax\/b>/is ; 
($error, $description, $buyer, $price, $seller};} 

sub print_f ile_hinted{ 
~ my($fn, $data) = @_; 
&print_header ; 

print subst ( load_f ile ($fn) , $data);} 

sub; print_header { 

print " Content- type : text/html\n\n" unless $header__printed; 
$header_printed++ ; } 

sub load_file{ 

my{$fn) = @_; 

my ($s) ; 

local (*IN) ; 

if (open (IN, $fn) ) 

{ read(IN, $s, -s $fn) ; 

close (IN) ; } 
$s |j "Technical dif f icul ties\n" ; } 

sub subst { 

my($s, $data) = @_; 

$data-> {method} = ' POST ' ; 

$s =~ s/ {{(.*?) }}/eval(" \$$l")/gie; 

$s =~ s/ "{(.*?)} " /quote($data->{$l} ) /gie; 

$s =~ s/ {=(.*?)} /URL: : encode ($data->{$l} ) /gie; 

$s =~ s/{ ( .*?) }/$data->{$l}/gi; 

$s; } 

sub quote f 

my($s) = @_; 

$s =~ s/ { [\\") ) /\\$l/g; 

"\"$s\"";} 

sub parse_query{ 

my ( $content , $ query ) ; 
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{ my($key, $val) = /*<.+?)=(.*)$/; 
next unless $key; 
$key =~ s/\+/ /g; 

$key =~ s/% ( [0-9a-z][0-9a-z] ) /pack(H2, $1) /ige; 
$val =~ s/\+/ /g; 

$val =~ s/%{ [0-9a-z] [0-9a-z] ) /pack(H2,$l) /ige; 
$val =~ s/ A \s| \s$//g; 
$query->{$key} = $val; } 
if (0) 

{ &print_header ; 

print "<P>In parse_query: query: \n"; 
for (sort keys %$query) 

{print "<BR>   $_ --> $query-> { $_} \n " ; } } 
$ query; } 



sub today { 

my(@mon) = qw (January February March April May June July August 
September October November December) ; 

: JJ my($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) 
logal time ( time) ; 

jr my $today = sprintf "%s %d, %d" , $mon[$mon], $mday, 1900 + $year 
$ today;} 

package URL; 
usjI Socket; 

sut) get { 

: }' my($remote, $path) = $_[0] = ~ /*(?: http : \ / \ /)?(.+?)( \ /.*)?[ \r\n] * 
:° my ($buf , $ret) ; 

Zl #print "<BR>urlget [$remote] [$path]\n"; 

my($name, $aliases, $addrtype, $length, $remoteaddr) = 
geihostbyname ($remote) ; 

#print "<BR>found ", join('.', unpack(C4, $remoteaddr) ) , "\n"; 
socket(S, PF_INET, SOCK_STREAM, 6) or print "<BR>socket: $>\n"; 
ttprint " <BR>connecting to $remote . . . \n" ; 

my $sin = sockaddr_in ( 80 , inet_aton ( $remote ) ) ; 

connect (S, $sin) or print " <BR>connect : $!\n"; 
#print "<BR>Connected to $remote\n" ; 
select(S); $| = 1; select (STDOUT) ; 
print S " GET $path\r\n" ; 
while (sysread(S, $buf, 10240)) 

{ $ret .= $buf; } 
close (S) ; 
$ret; } 



sub encode { 

my ( $ z ) = @_ ; 

$z =~ s/ ( [ = \?\&\+;<>] ) /'%' .unpack (H2 , $1) /ge; 

$z =~ tr/ /+/; 

$z;} 



### Local Variables: 



